home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / On this Date 3.0.cpt / On this Date 3.0 / card_21448.txt < prev    next >
Text File  |  1992-02-12  |  2KB  |  90 lines
  1. -- card: 21448 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 20798
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=155 top=69 right=304 bottom=495
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: 8003
  25. -- rect: left=4 top=312 right=337 bottom=170
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Install button in Home
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   choose button tool
  37.   click at the loc of button "On this date"
  38.   domenu "copy button"
  39.   go to "home"
  40.   doMenu "Paste Button"
  41.   repeat
  42.     set the loc of button "On this date" to the mouseloc
  43.     put the mouseloc into oldloc
  44.     set loc of msg to 18,20
  45.     put "Position the button where you'd like it, and click."
  46.     wait until the mouseloc ‚↠oldloc
  47.     put empty into msg
  48.     hide msg
  49.     repeat until the mouseclick
  50.       set the loc of button "On this date" to the mouseloc
  51.     end repeat
  52.     choose browse tool
  53.     answer "Is it at the desired location?" with "No" or "Yes"
  54.     if it is "yes" then exit repeat
  55.     else choose button tool
  56.   end repeat
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 7 (button)
  62. -- low flags: 00
  63. -- high flags: A000
  64. -- rect: left=27 top=253 right=305 bottom=94
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 12226 / 12226
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: On this date
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual zoom open
  76.   go stack "On this date 3.0"
  77. end mouseUp
  78.  
  79.  
  80. -- part contents for card part 5
  81. ----- text -----
  82. This stack was originally inspired by a daily column in my local newspaper.  I found myself wanting to keep a record of the information that this column contained so I spent a Saturday afternoon creating a stack for it.   
  83. (Isn't Hypercard wonderful?!?!?)
  84.  
  85. Anyway, if you enjoy this stack, send me money, scripts, buttons, sounds, or anything of questionable value.  By all means send me improvements. Thanks.
  86.  
  87. Bruce Selzler                    On GEnie: B. Selzler
  88. 1318 Campus Ave.             On Prodigy: GSMN63A
  89. Redlands, CA  92374
  90.